src/doc.c: Fix bug#13034.

(Fdocumentation): Re-add handling of function-documentation,
accidentally removed in revno:110851.

diff --git a/src/ChangeLog b/src/ChangeLog
index 989f2dd327064dd785aee99fe5b7900b1475ca6d..f9ddaf44c1a714ad7721f8c9c4352e79614a9cb0 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2012-11-30  Juanma Barranquero  <lekktu@gmail.com>
+
+       * doc.c (Fdocumentation): Re-add handling of function-documentation,
+       accidentally removed in revno:110851 (bug#13034).
+
 2012-11-29  Dmitry Antipov  <dmantipov@yandex.ru>
 
        * xdisp.c (window_outdated): Remove eassert since it hits

diff --git a/src/doc.c b/src/doc.c
index 1d3d1e644426d18e5761943088f9b1daa893e4e4..76008295addab165c9f5be91aaa611ff08f35dc0 100644 (file)
--- a/src/doc.c
+++ b/src/doc.c
@@ -338,6 +338,14 @@ string is passed through `substitute-command-keys'.  */)
 
   doc = Qnil;
 
+  if (SYMBOLP (function))
+    {
+      Lisp_Object tem = Fget (function, Qfunction_documentation);
+      if (!NILP (tem))
+       return Fdocumentation_property (function, Qfunction_documentation,
+                                       raw);
+    }
+
   fun = Findirect_function (function, Qnil);
   if (CONSP (fun) && EQ (XCAR (fun), Qmacro))
     fun = XCDR (fun);